home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / tutor.arc / BT.SA < prev    next >
Text File  |  1990-01-05  |  1KB  |  41 lines
  1. BT       IDNT      1,0       BT (Block Test) command                 11/30/81
  2.  
  3.          XDEF      BTCMD
  4.  SPC 1
  5.          XREF      FIXBUF
  6.          XREF      MACSBUG
  7.          XREF      MSG
  8.          XREF      MTSETUP
  9.          XREF      PNT4HX
  10.          XREF      PNT6HX
  11.          XREF      RAMTEST
  12.  SPC 1
  13.          SECTION   11
  14.  
  15. * BT   BLOCK OF MEMORY TEST
  16. BTCMD    BSR       MTSETUP   PREPARE PARMS (FROM,TO/COUNT)
  17.          BSR       RAMTEST   EXEC MEMORY TEST SUBROUTINE
  18.          BEQ       MACSBUG   NO ERRORS, RETURN TO MACSBUG
  19.          MOVE.L    D1,-(A7)  SAVE DATA READ
  20.          MOVE.L    D0,-(A7)  SAVE DATA WRITTEN CAUSING ERROR
  21.  SPC 1
  22.          BSR FIXBUF  SET UP TO PRINT
  23.          MOVE.L #'FAIL',(A6)+
  24.          MOVE.L #'ED A',(A6)+
  25.          MOVE.W #'T ',(A6)+
  26.          MOVE.L A2,D0                  ADDRESS WHERE IT FAILED
  27.          BSR PNT6HX
  28.  SPC 1
  29.          MOVE.L #'  WR',(A6)+
  30.          MOVE.L #'OTE=',(A6)+
  31.          MOVE.L (A7)+,D0               WHAT WAS WRITTEN
  32.          BSR PNT4HX
  33.  SPC 1
  34.          MOVE.L #'   R',(A6)+
  35.          MOVE.L #'EAD=',(A6)+
  36.          MOVE.L    (A7)+,D0            WHAT WAS READ
  37.          BSR PNT4HX
  38.  SPC 1
  39.          BRA MSG     PRINT IT
  40.  
  41.          END